home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_a / butter.act < prev    next >
Text File  |  1995-04-22  |  656b  |  52 lines
  1. ; butterfly  by michael mitchell 
  2. ; 01/20/85 
  3. PROC DEMO2() 
  4. CARD A,B,C,D,X,Y,J,K,COL,I,Q 
  5.    Graphics(11) 
  6. Poke(710,0) 
  7. Color=00 
  8. A=1 B=1 C=1 D=1 
  9. X=Rand(70)+1 
  10. Y=Rand(190)+1 
  11. J=Rand(50)+1 
  12. K=Rand(190)+1 
  13. For I=1 TO 9400 DO 
  14.  
  15. Plot(X,Y) Drawto(J,K) 
  16. Plot(J,Y) Drawto(X,K) 
  17. X==+A Y==+B J==+C K==+D Q=Rand(50) 
  18. IF Q>40 THEN  COL==+1  FI  IF COL>14 THEN COL=1 FI 
  19. COLOR=COL 
  20. IF X>=79 THEN A=-A X==+A  FI 
  21. IF J>=79 THEN C=-C J==+C FI 
  22. IF J<=0 THEN C=-C J==+C FI 
  23. IF X<=0 THEN A=-A X==+A FI 
  24. IF Y>=191 THEN B=-B Y==+B  FI 
  25. IF K>=191 THEN D=-D K==+D  FI 
  26. IF K<=0 THEN D=-D K==+D  FI 
  27. IF Y<=0 THEN B=-B Y==+B FI 
  28. OD 
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.